Transactor/Transactor_15_1987_Transactor_Publishing.d64/create &wp

Commodore BASIC | 2023-02-26 | 439b | 20 lines

10 rem courtesy of hacker's hardware
15 rem w fossett  -  l.&wp.050485
20 :
25 rem this program creates a file
30 rem on diskette that will write
35 rem protect or un-write protect
40 rem the diskette. use as follows:
45 :
50 rem   open15,8,15,"&wp":close15
55 :
60 open8,8,8,"&wp,p,w"
65 fori=1to29:readj:print#8,chr$(j);
70 nexti:close8
75 data 0,6,25,32,66,208
80 data 173,2,7,73,4,141
85 data 2,7,141,166,7,169
90 data 65,141,1,1,32,7
95 data 239,76,66,208,25
99 end